home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MOS / SFP004.D < prev    next >
Encoding:
Modula Definition  |  1990-03-02  |  1.1 KB  |  36 lines
  1. DEFINITION MODULE SFP004;
  2.  
  3. (*
  4.  * Spezialfunktionen für die FPU im ST / STE.
  5.  *
  6.  * Normalerweise sind eher die Routinen des Moduls 'FPUSupport' zu verwenden!
  7.  *)
  8.  
  9. PROCEDURE FPUInit;
  10.   (*
  11.    * Initialisiert die externe FPU. Zeigt einen Fehler an und terminiert
  12.    * das Programm, wenn keine externe FPU vorhanden ist.
  13.    *
  14.    * Wird im Modulkörper von 'Runtime' aufgerufen, braucht deshalb in
  15.    * der Regel nicht nochmal extra von der Anwendung aufgerufen werden.
  16.    *)
  17.  
  18. PROCEDURE FPUReset;
  19.   (*
  20.    * Reinitialisiert die externe FPU.
  21.    *
  22.    * Wird z.B. intern aufgerufen, wenn die FPU einen Fehler gemeldet hat.
  23.    * Kann auch z.B. verwendet werden, um nach Änderung der FPU-Konfiguration
  24.    * den normalen Status wiederherzustellen.
  25.    *)
  26.  
  27. PROCEDURE FPUError;
  28.   (*
  29.    * Nach dem Low-Byte im FPSR wird ein passender Laufzeitfehler ausgelöst.
  30.    * Zudem wird der FPU-Status zurückgesetzt.
  31.    * Vor dem Aufruf sollte eine LINK-Instruktion ausgeführt werden, denn
  32.    * diese Routine signalisiert 'callerCaused' (siehe ErrBase).
  33.    *)
  34.  
  35. END SFP004.
  36.